/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / integrate / !Integrate / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 20 f4 20 3e | 21 52 75 6e 49 6d 61 67 |.... . >|!RunImag|
|00000010| 65 0d 00 14 0f 20 ee 20 | 85 20 f2 65 72 72 6f 72 |e.... . |. .error|
|00000020| 0d 00 1e 38 20 de 20 62 | 6c 6f 63 6b 25 20 26 34 |...8 . b|lock% &4|
|00000030| 30 30 2c 69 62 6c 6f 63 | 6b 25 20 26 34 30 30 2c |00,ibloc|k% &400,|
|00000040| 69 32 62 6c 6f 63 6b 25 | 20 26 31 30 30 2c 6d 65 |i2block%| &100,me|
|00000050| 6e 75 25 20 26 31 30 30 | 0d 00 28 28 20 76 65 72 |nu% &100|..(( ver|
|00000060| 73 69 6f 6e 24 3d 22 31 | 2e 30 31 22 3a 64 61 74 |sion$="1|.01":dat|
|00000070| 65 24 3d 22 28 33 31 2d | 4f 63 74 2d 39 31 29 22 |e$="(31-|Oct-91)"|
|00000080| 0d 00 32 0c 20 71 75 69 | 74 25 3d a3 0d 00 3c 13 |..2. qui|t%=...<.|
|00000090| 20 24 62 6c 6f 63 6b 25 | 3d 22 54 41 53 4b 22 0d | $block%|="TASK".|
|000000a0| 00 46 42 20 c8 99 20 22 | 57 69 6d 70 5f 49 6e 69 |.FB .. "|Wimp_Ini|
|000000b0| 74 69 61 6c 69 73 65 22 | 2c 32 30 30 2c 21 62 6c |tialise"|,200,!bl|
|000000c0| 6f 63 6b 25 2c 22 49 6e | 74 65 67 72 61 74 65 22 |ock%,"In|tegrate"|
|000000d0| 20 b8 20 76 65 72 73 69 | 6f 6e 25 2c 74 61 73 6b | . versi|on%,task|
|000000e0| 25 0d 00 50 33 20 c8 99 | 20 22 57 69 6d 70 5f 4f |%..P3 ..| "Wimp_O|
|000000f0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|00000100| 4f 62 65 79 24 44 69 72 | 3e 2e 74 65 6d 70 6c 61 |Obey$Dir|>.templa|
|00000110| 74 65 73 22 0d 00 5a 44 | 20 c8 99 20 22 57 69 6d |tes"..ZD| .. "Wim|
|00000120| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000130| 2c 62 6c 6f 63 6b 25 2c | 69 32 62 6c 6f 63 6b 25 |,block%,|i2block%|
|00000140| 2c 69 32 62 6c 6f 63 6b | 25 2b 26 31 30 30 2c 2d |,i2block|%+&100,-|
|00000150| 31 2c 22 69 6e 66 6f 22 | 0d 00 64 2f 20 c8 99 20 |1,"info"|..d/ .. |
|00000160| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000170| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 20 b8 20 69 62 |ow",,blo|ck% . ib|
|00000180| 68 61 6e 64 6c 65 25 0d | 00 6e 46 20 c8 99 20 22 |handle%.|.nF .. "|
|00000190| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000001a0| 65 22 2c 2c 62 6c 6f 63 | 6b 25 2b 34 2c 69 62 6c |e",,bloc|k%+4,ibl|
|000001b0| 6f 63 6b 25 2c 69 62 6c | 6f 63 6b 25 2b 26 34 30 |ock%,ibl|ock%+&40|
|000001c0| 30 2c 2d 31 2c 22 6d 61 | 69 6e 22 2c 30 0d 00 78 |0,-1,"ma|in",0..x|
|000001d0| 30 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |0 .. "Wi|mp_Creat|
|000001e0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|000001f0| 2b 34 20 b8 20 77 68 61 | 6e 64 6c 65 25 0d 00 82 |+4 . wha|ndle%...|
|00000200| 1c 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |. .. "Wi|mp_Close|
|00000210| 54 65 6d 70 6c 61 74 65 | 22 0d 00 8c 0d 20 f2 69 |Template|".... .i|
|00000220| 63 6f 6e 62 61 72 0d 00 | 96 2b 20 f2 64 72 61 77 |conbar..|.+ .draw|
|00000230| 6d 65 6e 75 28 6d 65 6e | 75 25 2c 22 49 6e 74 65 |menu(men|u%,"Inte|
|00000240| 67 72 61 74 65 2c 49 6e | 66 6f 2c 51 75 69 74 22 |grate,In|fo,Quit"|
|00000250| 29 0d 00 a0 17 20 6d 65 | 6e 75 25 21 33 32 3d 69 |).... me|nu%!32=i|
|00000260| 62 68 61 6e 64 6c 65 25 | 0d 00 aa 33 20 f2 77 72 |bhandle%|...3 .wr|
|00000270| 69 74 65 69 63 6f 6e 74 | 65 78 74 28 69 62 68 61 |iteicont|ext(ibha|
|00000280| 6e 64 6c 65 25 2c 33 2c | 76 65 72 73 69 6f 6e 24 |ndle%,3,|version$|
|00000290| 2b 22 20 22 2b 64 61 74 | 65 24 29 0d 00 b4 06 20 |+" "+dat|e$).... |
|000002a0| f5 0d 00 be 0a 20 f2 70 | 6f 6c 6c 0d 00 c8 0c 20 |..... .p|oll.... |
|000002b0| fd 20 71 75 69 74 25 0d | 00 d2 0b 20 f2 63 6c 6f |. quit%.|... .clo|
|000002c0| 73 65 0d 00 dc 06 20 e0 | 0d 00 e6 06 20 3a 0d 00 |se.... .|.... :..|
|000002d0| f0 0c 20 dd 20 f2 70 6f | 6c 6c 0d 00 fa 25 20 c8 |.. . .po|ll...% .|
|000002e0| 99 20 22 57 69 6d 70 5f | 50 6f 6c 6c 22 2c 2c 62 |. "Wimp_|Poll",,b|
|000002f0| 6c 6f 63 6b 25 20 b8 20 | 72 65 61 73 6f 6e 25 0d |lock% . |reason%.|
|00000300| 01 04 11 20 c8 8e 20 72 | 65 61 73 6f 6e 25 20 ca |... .. r|eason% .|
|00000310| 0d 01 0e 25 20 c9 20 32 | 3a c8 99 20 22 57 69 6d |...% . 2|:.. "Wim|
|00000320| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00000330| 6c 6f 63 6b 25 0d 01 18 | 26 20 c9 20 33 3a c8 99 |lock%...|& . 3:..|
|00000340| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00000350| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 01 22 11 20 |ow",,blo|ck%..". |
|00000360| c9 20 36 3a f2 62 75 74 | 74 6f 6e 73 0d 01 2c 17 |. 6:.but|tons..,.|
|00000370| 20 c9 20 38 3a c8 8e 20 | 62 6c 6f 63 6b 25 21 32 | . 8:.. |block%!2|
|00000380| 34 20 ca 0d 01 36 16 20 | 20 20 c9 20 31 33 3a f2 |4 ...6. |  . 13:.|
|00000390| 69 6e 74 65 67 72 61 74 | 65 0d 01 40 12 20 20 20 |integrat|e..@.   |
|000003a0| c9 20 33 39 38 3a f2 64 | 6f 77 6e 0d 01 4a 10 20 |. 398:.d|own..J. |
|000003b0| 20 20 c9 20 33 39 39 3a | f2 75 70 0d 01 54 27 20 |  . 399:|.up..T' |
|000003c0| 20 20 7f 20 c8 99 20 22 | 57 69 6d 70 5f 50 72 6f |  . .. "|Wimp_Pro|
|000003d0| 63 65 73 73 4b 65 79 22 | 2c 62 6c 6f 63 6b 25 21 |cessKey"|,block%!|
|000003e0| 32 34 0d 01 5e 06 20 cb | 0d 01 68 14 20 c9 20 39 |24..^. .|..h. . 9|
|000003f0| 3a f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 01 72 24 |:.menuse|lect..r$|
|00000400| 20 c9 20 31 37 2c 31 38 | 3a e7 20 62 6c 6f 63 6b | . 17,18|:. block|
|00000410| 25 21 31 36 3d 30 20 8c | 20 71 75 69 74 25 3d b9 |%!16=0 .| quit%=.|
|00000420| 0d 01 7c 06 20 cb 0d 01 | 86 06 20 e1 0d 01 90 06 |..|. ...|.. .....|
|00000430| 20 3a 0d 01 9a 0d 20 dd | 20 f2 63 6c 6f 73 65 0d | :.... .| .close.|
|00000440| 01 a4 13 20 24 62 6c 6f | 63 6b 25 3d 22 54 41 53 |... $blo|ck%="TAS|
|00000450| 4b 22 0d 01 ae 26 20 c8 | 99 20 22 57 69 6d 70 5f |K"...& .|. "Wimp_|
|00000460| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 74 61 73 6b 25 |CloseDow|n",task%|
|00000470| 2c 21 62 6c 6f 63 6b 25 | 0d 01 b8 06 20 e1 0d 01 |,!block%|.... ...|
|00000480| c2 06 20 3a 0d 01 cc 0d | 20 dd 20 f2 65 72 72 6f |.. :....| . .erro|
|00000490| 72 0d 01 d6 0e 20 21 62 | 6c 6f 63 6b 25 3d 9f 0d |r.... !b|lock%=..|
|000004a0| 01 e0 41 20 24 28 62 6c | 6f 63 6b 25 2b 34 29 3d |..A $(bl|ock%+4)=|
|000004b0| f6 24 2b 22 20 28 43 68 | 65 63 6b 20 76 61 6c 69 |.$+" (Ch|eck vali|
|000004c0| 64 69 74 79 20 6f 66 20 | 6c 69 6d 69 74 73 20 61 |dity of |limits a|
|000004d0| 6e 64 20 66 75 6e 63 74 | 69 6f 6e 29 22 2b bd 30 |nd funct|ion)"+.0|
|000004e0| 0d 01 ea 2f 20 c8 99 20 | 22 57 69 6d 70 5f 52 65 |.../ .. |"Wimp_Re|
|000004f0| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 6c 6f 63 6b |portErro|r",block|
|00000500| 25 2c 31 2c 22 49 6e 74 | 65 67 72 61 74 65 22 0d |%,1,"Int|egrate".|
|00000510| 01 f4 06 20 e1 0d 01 fe | 06 20 3a 0d 02 08 1b 20 |... ....|. :.... |
|00000520| dd 20 f2 6f 70 65 6e 77 | 69 6e 64 6f 77 28 68 61 |. .openw|indow(ha|
|00000530| 6e 64 6c 65 25 29 0d 02 | 12 16 20 62 6c 6f 63 6b |ndle%)..|.. block|
|00000540| 25 21 30 3d 77 68 61 6e | 64 6c 65 25 0d 02 1c 25 |%!0=whan|dle%...%|
|00000550| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e | .. "Wim|p_GetWin|
|00000560| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |dowState|",,block|
|00000570| 25 0d 02 26 21 20 c8 99 | 20 22 57 69 6d 70 5f 4f |%..&! ..| "Wimp_O|
|00000580| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |penWindo|w",,bloc|
|00000590| 6b 25 0d 02 30 06 20 e1 | 0d 02 3a 06 20 3a 0d 02 |k%..0. .|..:. :..|
|000005a0| 44 0f 20 dd 20 f2 62 75 | 74 74 6f 6e 73 0d 02 4e |D. . .bu|ttons..N|
|000005b0| 1b 20 78 25 3d 21 62 6c | 6f 63 6b 25 3a 79 25 3d |. x%=!bl|ock%:y%=|
|000005c0| 62 6c 6f 63 6b 25 21 34 | 0d 02 58 15 20 e7 20 62 |block%!4|..X. . b|
|000005d0| 6c 6f 63 6b 25 21 38 20 | 80 20 32 20 8c 0d 02 62 |lock%!8 |. 2 ...b|
|000005e0| 2a 20 f2 73 68 6f 77 6d | 65 6e 75 28 6d 65 6e 75 |* .showm|enu(menu|
|000005f0| 25 2c 78 25 2c 79 25 2c | 62 6c 6f 63 6b 25 21 31 |%,x%,y%,|block%!1|
|00000600| 32 3d 2d 32 2c 32 29 0d | 02 6c 2d 20 cc 20 e7 20 |2=-2,2).|.l- . . |
|00000610| 62 6c 6f 63 6b 25 21 38 | 20 80 20 35 20 8c 20 f2 |block%!8| . 5 . .|
|00000620| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 77 68 61 6e 64 |openwind|ow(whand|
|00000630| 6c 65 25 29 0d 02 76 06 | 20 cd 0d 02 80 06 20 e1 |le%)..v.| ..... .|
|00000640| 0d 02 8a 06 20 3a 0d 02 | 94 12 20 dd 20 f2 6d 65 |.... :..|.. . .me|
|00000650| 6e 75 73 65 6c 65 63 74 | 0d 02 9e 14 20 63 68 6f |nuselect|.... cho|
|00000660| 69 63 65 25 3d 21 62 6c | 6f 63 6b 25 0d 02 a8 1a |ice%=!bl|ock%....|
|00000670| 20 e7 20 63 68 6f 69 63 | 65 25 3d 31 20 8c 20 71 | . choic|e%=1 . q|
|00000680| 75 69 74 25 3d b9 0d 02 | b2 10 20 e7 20 ac 20 71 |uit%=...|.. . . q|
|00000690| 75 69 74 25 20 8c 0d 02 | bc 25 20 c8 99 20 22 57 |uit% ...|.% .. "W|
|000006a0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000006b0| 66 6f 22 2c 2c 62 6c 6f | 63 6b 25 0d 02 c6 2e 20 |fo",,blo|ck%.... |
|000006c0| e7 20 62 6c 6f 63 6b 25 | 21 38 3d 31 20 8c 20 f2 |. block%|!8=1 . .|
|000006d0| 73 68 6f 77 6d 65 6e 75 | 28 6d 65 6e 75 25 2c 78 |showmenu|(menu%,x|
|000006e0| 25 2c 79 25 2c b9 2c 32 | 29 0d 02 d0 06 20 cd 0d |%,y%,.,2|).... ..|
|000006f0| 02 da 06 20 e1 0d 02 e4 | 06 20 3a 0d 02 ee 1d 20 |... ....|. :.... |
|00000700| dd 20 f2 64 72 61 77 6d | 65 6e 75 28 6d 65 6e 75 |. .drawm|enu(menu|
|00000710| 25 2c 6d 65 6e 75 24 29 | 0d 02 f8 1a 20 6d 65 6e |%,menu$)|.... men|
|00000720| 75 25 3f 31 32 3d 37 3a | 6d 65 6e 75 25 3f 31 33 |u%?12=7:|menu%?13|
|00000730| 3d 32 0d 03 02 1a 20 6d | 65 6e 75 25 3f 31 34 3d |=2.... m|enu%?14=|
|00000740| 37 3a 6d 65 6e 75 25 3f | 31 35 3d 30 0d 03 0c 1d |7:menu%?|15=0....|
|00000750| 20 6d 65 6e 75 25 21 31 | 36 3d 31 34 30 3a 6d 65 | menu%!1|6=140:me|
|00000760| 6e 75 25 21 32 30 3d 34 | 34 0d 03 16 1d 20 6d 65 |nu%!20=4|4.... me|
|00000770| 6e 75 25 21 32 34 3d 30 | 3a 70 74 72 25 3d 6d 65 |nu%!24=0|:ptr%=me|
|00000780| 6e 75 25 2b 32 38 0d 03 | 20 21 20 24 6d 65 6e 75 |nu%+28..| ! $menu|
|00000790| 25 3d c0 6d 65 6e 75 24 | 2c a7 6d 65 6e 75 24 2c |%=.menu$|,.menu$,|
|000007a0| 22 2c 22 29 2d 31 29 0d | 03 2a 0f 20 6d 65 6e 75 |",")-1).|.*. menu|
|000007b0| 24 2b 3d 22 2c 22 0d 03 | 34 0f 20 65 6e 74 72 69 |$+=","..|4. entri|
|000007c0| 65 73 25 3d 30 0d 03 3e | 11 20 c8 95 20 6d 65 6e |es%=0..>|. .. men|
|000007d0| 75 24 3c 3e 22 22 0d 03 | 48 20 20 6d 65 6e 75 24 |u$<>""..|H  menu$|
|000007e0| 3d c1 6d 65 6e 75 24 2c | a7 6d 65 6e 75 24 2c 22 |=.menu$,|.menu$,"|
|000007f0| 2c 22 29 2b 31 29 0d 03 | 52 12 20 e7 20 6d 65 6e |,")+1)..|R. . men|
|00000800| 75 24 3c 3e 22 22 20 8c | 0d 03 5c 16 20 21 70 74 |u$<>"" .|..\. !pt|
|00000810| 72 25 3d 30 3a 70 74 72 | 25 21 34 3d 2d 31 0d 03 |r%=0:ptr|%!4=-1..|
|00000820| 66 14 20 70 74 72 25 21 | 38 3d 26 37 30 30 30 30 |f. ptr%!|8=&70000|
|00000830| 32 31 0d 03 70 25 20 24 | 28 70 74 72 25 2b 31 32 |21..p% $|(ptr%+12|
|00000840| 29 3d c0 6d 65 6e 75 24 | 2c a7 6d 65 6e 75 24 2c |)=.menu$|,.menu$,|
|00000850| 22 2c 22 29 2d 31 29 0d | 03 7a 0d 20 70 74 72 25 |",")-1).|.z. ptr%|
|00000860| 2b 3d 32 34 0d 03 84 10 | 20 65 6e 74 72 69 65 73 |+=24....| entries|
|00000870| 25 2b 3d 31 0d 03 8e 06 | 20 cd 0d 03 98 06 20 ce |%+=1....| ..... .|
|00000880| 0d 03 a2 1c 20 70 74 72 | 25 21 2d 32 34 3d 70 74 |.... ptr|%!-24=pt|
|00000890| 72 25 21 2d 32 34 20 84 | 20 26 38 30 0d 03 ac 06 |r%!-24 .| &80....|
|000008a0| 20 e1 0d 03 b6 06 20 3a | 0d 03 c0 31 20 dd 20 f2 | ..... :|...1 . .|
|000008b0| 73 68 6f 77 6d 65 6e 75 | 28 6d 65 6e 75 25 2c 78 |showmenu|(menu%,x|
|000008c0| 25 2c 79 25 2c 6f 6e 69 | 63 6f 6e 62 61 72 25 2c |%,y%,oni|conbar%,|
|000008d0| 65 6e 74 72 69 65 73 25 | 29 0d 03 ca 36 20 e7 20 |entries%|)...6 . |
|000008e0| 6f 6e 69 63 6f 6e 62 61 | 72 25 20 8c 20 79 70 6f |oniconba|r% . ypo|
|000008f0| 73 25 3d 39 36 2b 65 6e | 74 72 69 65 73 25 2a 34 |s%=96+en|tries%*4|
|00000900| 34 20 8b 20 79 70 6f 73 | 25 3d 79 25 2b 32 30 0d |4 . ypos|%=y%+20.|
|00000910| 03 d4 2c 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.., .. "|Wimp_Cre|
|00000920| 61 74 65 4d 65 6e 75 22 | 2c 2c 6d 65 6e 75 25 2c |ateMenu"|,,menu%,|
|00000930| 78 25 2d 36 34 2c 79 70 | 6f 73 25 0d 03 de 06 20 |x%-64,yp|os%.... |
|00000940| e1 0d 03 e8 06 20 3a 0d | 03 f2 0f 20 dd 20 f2 69 |..... :.|... . .i|
|00000950| 63 6f 6e 62 61 72 0d 03 | fc 26 20 62 6c 6f 63 6b |conbar..|.& block|
|00000960| 25 21 30 3d 2d 31 3a 62 | 6c 6f 63 6b 25 21 34 3d |%!0=-1:b|lock%!4=|
|00000970| 30 3a 62 6c 6f 63 6b 25 | 21 38 3d 30 0d 04 06 1e |0:block%|!8=0....|
|00000980| 20 62 6c 6f 63 6b 25 21 | 31 32 3d 39 32 3a 62 6c | block%!|12=92:bl|
|00000990| 6f 63 6b 25 21 31 36 3d | 36 38 0d 04 10 14 20 62 |ock%!16=|68.... b|
|000009a0| 6c 6f 63 6b 25 21 32 30 | 3d 26 33 30 30 32 0d 04 |lock%!20|=&3002..|
|000009b0| 1a 1e 20 24 28 62 6c 6f | 63 6b 25 2b 32 34 29 3d |.. $(blo|ck%+24)=|
|000009c0| 22 21 69 6e 74 65 67 72 | 61 74 65 22 0d 04 24 2c |"!integr|ate"..$,|
|000009d0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|000009e0| 49 63 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |Icon",,b|lock% . |
|000009f0| 69 68 61 6e 64 6c 65 25 | 0d 04 2e 06 20 e1 0d 04 |ihandle%|.... ...|
|00000a00| 38 06 20 3a 0d 04 42 23 | 20 dd 20 a4 72 65 61 64 |8. :..B#| . .read|
|00000a10| 69 63 6f 6e 74 65 78 74 | 28 68 61 6e 64 6c 65 25 |icontext|(handle%|
|00000a20| 2c 69 63 6f 6e 25 29 0d | 04 4c 23 20 21 62 6c 6f |,icon%).|.L# !blo|
|00000a30| 63 6b 25 3d 68 61 6e 64 | 6c 65 25 3a 62 6c 6f 63 |ck%=hand|le%:bloc|
|00000a40| 6b 25 21 34 3d 69 63 6f | 6e 25 0d 04 56 23 20 c8 |k%!4=ico|n%..V# .|
|00000a50| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00000a60| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 04 60 |tate",,b|lock%..`|
|00000a70| 0f 20 3d 62 6c 6f 63 6b | 25 21 32 38 0d 04 6a 06 |. =block|%!28..j.|
|00000a80| 20 3a 0d 04 74 2a 20 dd | 20 f2 77 72 69 74 65 69 | :..t* .| .writei|
|00000a90| 63 6f 6e 74 65 78 74 28 | 68 61 6e 64 6c 65 25 2c |context(|handle%,|
|00000aa0| 69 63 6f 6e 25 2c 74 65 | 78 74 24 29 0d 04 7e 24 |icon%,te|xt$)..~$|
|00000ab0| 20 61 25 3d a4 72 65 61 | 64 69 63 6f 6e 74 65 78 | a%=.rea|dicontex|
|00000ac0| 74 28 68 61 6e 64 6c 65 | 25 2c 69 63 6f 6e 25 29 |t(handle|%,icon%)|
|00000ad0| 0d 04 88 0e 20 24 61 25 | 3d 74 65 78 74 24 0d 04 |.... $a%|=text$..|
|00000ae0| 92 15 20 62 6c 6f 63 6b | 25 21 30 3d 68 61 6e 64 |.. block|%!0=hand|
|00000af0| 6c 65 25 0d 04 9c 13 20 | 62 6c 6f 63 6b 25 21 34 |le%.... |block%!4|
|00000b00| 3d 69 63 6f 6e 25 0d 04 | a6 1b 20 62 6c 6f 63 6b |=icon%..|.. block|
|00000b10| 25 21 38 3d 30 3a 62 6c | 6f 63 6b 25 21 31 32 3d |%!8=0:bl|ock%!12=|
|00000b20| 30 0d 04 b0 23 20 c8 99 | 20 22 57 69 6d 70 5f 53 |0...# ..| "Wimp_S|
|00000b30| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00000b40| 6f 63 6b 25 0d 04 ba 06 | 20 e1 0d 04 c4 06 20 3a |ock%....| ..... :|
|00000b50| 0d 04 ce 0a 20 dd 20 f2 | 75 70 0d 04 d8 27 20 c8 |.... . .|up...' .|
|00000b60| 99 20 22 57 69 6d 70 5f | 47 65 74 43 61 72 65 74 |. "Wimp_|GetCaret|
|00000b70| 50 6f 73 69 74 69 6f 6e | 22 2c 2c 62 6c 6f 63 6b |Position|",,block|
|00000b80| 25 0d 04 e2 15 20 e7 20 | 62 6c 6f 63 6b 25 21 34 |%.... . |block%!4|
|00000b90| 3d 30 20 8c 20 e1 0d 04 | ec 5f 20 c8 99 20 22 57 |=0 . ...|._ .. "W|
|00000ba0| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00000bb0| 74 69 6f 6e 22 2c 77 68 | 61 6e 64 6c 65 25 2c 62 |tion",wh|andle%,b|
|00000bc0| 6c 6f 63 6b 25 21 34 2d | 31 2c 2c 2c 2d 31 2c a9 |lock%!4-|1,,,-1,.|
|00000bd0| 28 24 a4 72 65 61 64 69 | 63 6f 6e 74 65 78 74 28 |($.readi|context(|
|00000be0| 77 68 61 6e 64 6c 65 25 | 2c 62 6c 6f 63 6b 25 21 |whandle%|,block%!|
|00000bf0| 34 2d 31 29 29 0d 04 f6 | 06 20 e1 0d 05 00 06 20 |4-1))...|. ..... |
|00000c00| 3a 0d 05 0a 0c 20 dd 20 | f2 64 6f 77 6e 0d 05 14 |:.... . |.down...|
|00000c10| 27 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 |' .. "Wi|mp_GetCa|
|00000c20| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2c 62 6c |retPosit|ion",,bl|
|00000c30| 6f 63 6b 25 0d 05 1e 15 | 20 e7 20 62 6c 6f 63 6b |ock%....| . block|
|00000c40| 25 21 34 3d 32 20 8c 20 | e1 0d 05 28 5f 20 c8 99 |%!4=2 . |...(_ ..|
|00000c50| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00000c60| 6f 73 69 74 69 6f 6e 22 | 2c 77 68 61 6e 64 6c 65 |osition"|,whandle|
|00000c70| 25 2c 62 6c 6f 63 6b 25 | 21 34 2b 31 2c 2c 2c 2d |%,block%|!4+1,,,-|
|00000c80| 31 2c a9 28 24 a4 72 65 | 61 64 69 63 6f 6e 74 65 |1,.($.re|adiconte|
|00000c90| 78 74 28 77 68 61 6e 64 | 6c 65 25 2c 62 6c 6f 63 |xt(whand|le%,bloc|
|00000ca0| 6b 25 21 34 2b 31 29 29 | 0d 05 32 06 20 e1 0d 05 |k%!4+1))|..2. ...|
|00000cb0| 3c 06 20 3a 0d 05 46 11 | 20 dd 20 f2 69 6e 74 65 |<. :..F.| . .inte|
|00000cc0| 67 72 61 74 65 0d 05 50 | 30 20 75 70 70 65 72 24 |grate..P|0 upper$|
|00000cd0| 3d a4 74 6f 75 70 70 65 | 72 28 24 a4 72 65 61 64 |=.touppe|r($.read|
|00000ce0| 69 63 6f 6e 74 65 78 74 | 28 77 68 61 6e 64 6c 65 |icontext|(whandle|
|00000cf0| 25 2c 30 29 29 0d 05 5a | 30 20 6c 6f 77 65 72 24 |%,0))..Z|0 lower$|
|00000d00| 3d a4 74 6f 75 70 70 65 | 72 28 24 a4 72 65 61 64 |=.touppe|r($.read|
|00000d10| 69 63 6f 6e 74 65 78 74 | 28 77 68 61 6e 64 6c 65 |icontext|(whandle|
|00000d20| 25 2c 32 29 29 0d 05 64 | 2c 20 79 24 3d a4 74 6f |%,2))..d|, y$=.to|
|00000d30| 75 70 70 65 72 28 24 a4 | 72 65 61 64 69 63 6f 6e |upper($.|readicon|
|00000d40| 74 65 78 74 28 77 68 61 | 6e 64 6c 65 25 2c 31 29 |text(wha|ndle%,1)|
|00000d50| 29 0d 05 6e 0f 20 73 74 | 65 70 73 25 3d 35 30 30 |)..n. st|eps%=500|
|00000d60| 0d 05 78 24 20 64 78 3d | 28 a0 28 75 70 70 65 72 |..x$ dx=|(.(upper|
|00000d70| 24 29 2d a0 28 6c 6f 77 | 65 72 24 29 29 2f 73 74 |$)-.(low|er$))/st|
|00000d80| 65 70 73 25 0d 05 82 1a | 20 58 3d a0 28 6c 6f 77 |eps%....| X=.(low|
|00000d90| 65 72 24 29 3a 6c 68 73 | 3d a0 28 79 24 29 0d 05 |er$):lhs|=.(y$)..|
|00000da0| 8c 16 20 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |.. .. "H|ourglass|
|00000db0| 5f 4f 6e 22 0d 05 96 08 | 20 69 3d 30 0d 05 a0 14 |_On"....| i=0....|
|00000dc0| 20 e3 20 6e 25 3d 31 20 | b8 20 73 74 65 70 73 25 | . n%=1 |. steps%|
|00000dd0| 0d 05 aa 16 20 58 3d a0 | 28 6c 6f 77 65 72 24 29 |.... X=.|(lower$)|
|00000de0| 2b 6e 25 2a 64 78 0d 05 | b4 0e 20 72 68 73 3d a0 |+n%*dx..|.. rhs=.|
|00000df0| 28 79 24 29 0d 05 be 18 | 20 69 2b 3d 30 2e 35 2a |(y$)....| i+=0.5*|
|00000e00| 64 78 2a 28 6c 68 73 2b | 72 68 73 29 0d 05 c8 0c |dx*(lhs+|rhs)....|
|00000e10| 20 6c 68 73 3d 72 68 73 | 0d 05 d2 09 20 ed 20 6e | lhs=rhs|.... . n|
|00000e20| 25 0d 05 dc 3b 20 e7 20 | 69 3c 31 45 2d 38 20 8c |%...; . |i<1E-8 .|
|00000e30| 20 61 6e 73 24 3d 22 30 | 2e 30 30 30 22 3a 70 77 | ans$="0|.000":pw|
|00000e40| 72 24 3d 22 30 22 20 8b | 20 f2 74 6f 33 73 66 28 |r$="0" .| .to3sf(|
|00000e50| 69 2c 61 6e 73 24 2c 70 | 77 72 24 29 0d 05 e6 17 |i,ans$,p|wr$)....|
|00000e60| 20 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f | .. "Hou|rglass_O|
|00000e70| 66 66 22 0d 05 f0 24 20 | f2 77 72 69 74 65 69 63 |ff"...$ |.writeic|
|00000e80| 6f 6e 74 65 78 74 28 77 | 68 61 6e 64 6c 65 25 2c |ontext(w|handle%,|
|00000e90| 33 2c 61 6e 73 24 29 0d | 05 fa 24 20 f2 77 72 69 |3,ans$).|..$ .wri|
|00000ea0| 74 65 69 63 6f 6e 74 65 | 78 74 28 77 68 61 6e 64 |teiconte|xt(whand|
|00000eb0| 6c 65 25 2c 34 2c 70 77 | 72 24 29 0d 06 04 06 20 |le%,4,pw|r$).... |
|00000ec0| e1 0d 06 0e 06 20 3a 0d | 06 18 16 20 dd 20 a4 74 |..... :.|... . .t|
|00000ed0| 6f 75 70 70 65 72 28 74 | 65 78 74 24 29 0d 06 22 |oupper(t|ext$).."|
|00000ee0| 15 20 e3 20 6e 25 3d 31 | 20 b8 20 a9 20 74 65 78 |. . n%=1| . . tex|
|00000ef0| 74 24 0d 06 2c 14 20 63 | 24 3d c1 74 65 78 74 24 |t$..,. c|$=.text$|
|00000f00| 2c 6e 25 2c 31 29 0d 06 | 36 33 20 e7 20 63 24 3e |,n%,1)..|63 . c$>|
|00000f10| 3d 22 61 22 20 80 20 63 | 24 3e 3d 22 41 22 20 8c |="a" . c|$>="A" .|
|00000f20| 20 c1 74 65 78 74 24 2c | 6e 25 2c 31 29 3d bd 28 | .text$,|n%,1)=.(|
|00000f30| 97 28 63 24 29 2d 33 32 | 29 0d 06 40 09 20 ed 20 |.(c$)-32|)..@. . |
|00000f40| 6e 25 0d 06 4a 0b 20 3d | 74 65 78 74 24 0d 06 54 |n%..J. =|text$..T|
|00000f50| 06 20 3a 0d 06 5e 20 20 | dd 20 f2 74 6f 33 73 66 |. :..^  |. .to3sf|
|00000f60| 28 6e 75 6d 2c f8 20 6e | 75 6d 24 2c f8 20 65 78 |(num,. n|um$,. ex|
|00000f70| 70 24 29 0d 06 68 0c 20 | 70 77 72 25 3d 33 30 0d |p$)..h. |pwr%=30.|
|00000f80| 06 72 0c 20 64 6f 6e 65 | 25 3d a3 0d 06 7c 06 20 |.r. done|%=...|. |
|00000f90| f5 0d 06 86 12 20 6e 70 | 3d 6e 75 6d 2b 2e 30 30 |..... np|=num+.00|
|00000fa0| 30 30 31 0d 06 90 40 20 | e7 20 6e 70 2f 28 31 30 |001...@ |. np/(10|
|00000fb0| 5e 70 77 72 25 29 3e 3d | 31 20 84 20 6e 70 2f 28 |^pwr%)>=|1 . np/(|
|00000fc0| 31 30 5e 70 77 72 25 29 | 3c 3d 2d 31 20 8c 20 6d |10^pwr%)|<=-1 . m|
|00000fd0| 61 78 70 77 72 25 3d 70 | 77 72 25 3a 64 6f 6e 65 |axpwr%=p|wr%:done|
|00000fe0| 25 3d b9 0d 06 9a 0c 20 | 70 77 72 25 2d 3d 31 0d |%=..... |pwr%-=1.|
|00000ff0| 06 a4 0c 20 fd 20 64 6f | 6e 65 25 0d 06 ae 19 20 |... . do|ne%.... |
|00001000| 6e 75 6d 3d 6e 75 6d 2f | 28 31 30 5e 6d 61 78 70 |num=num/|(10^maxp|
|00001010| 77 72 25 29 0d 06 b8 1f | 20 6e 75 6d 3d 28 a8 28 |wr%)....| num=(.(|
|00001020| 6e 75 6d 2a 31 30 30 30 | 2b 30 2e 35 29 29 2f 31 |num*1000|+0.5))/1|
|00001030| 30 30 30 0d 06 c2 27 20 | e7 20 6e 75 6d 3c 30 20 |000...' |. num<0 |
|00001040| 8c 20 6e 75 6d 3d 2d 6e | 75 6d 3a 6e 65 67 25 3d |. num=-n|um:neg%=|
|00001050| b9 20 8b 20 6e 65 67 25 | 3d a3 0d 06 cc 0e 20 6e |. . neg%|=..... n|
|00001060| 75 6d 24 3d c3 6e 75 6d | 0d 06 d6 1b 20 e7 20 a9 |um$=.num|.... . .|
|00001070| 20 6e 75 6d 24 3d 31 20 | 8c 20 6e 75 6d 24 2b 3d | num$=1 |. num$+=|
|00001080| 22 2e 22 0d 06 e0 21 20 | e7 20 a9 20 6e 75 6d 24 |"."...! |. . num$|
|00001090| 3e 35 20 8c 20 6e 75 6d | 24 3d c1 6e 75 6d 24 2c |>5 . num|$=.num$,|
|000010a0| 31 2c 35 29 0d 06 ea 1a | 20 6e 75 6d 24 2b 3d c4 |1,5)....| num$+=.|
|000010b0| 35 2d a9 28 6e 75 6d 24 | 29 2c 22 30 22 29 0d 06 |5-.(num$|),"0")..|
|000010c0| f4 14 20 65 78 70 24 3d | c3 28 6d 61 78 70 77 72 |.. exp$=|.(maxpwr|
|000010d0| 25 29 0d 06 fe 1b 20 e7 | 20 6e 65 67 25 20 8c 20 |%).... .| neg% . |
|000010e0| 6e 75 6d 24 3d 22 2d 22 | 2b 6e 75 6d 24 0d 07 08 |num$="-"|+num$...|
|000010f0| 06 20 e1 0d ff          |                         |. ...   |        |
+--------+-------------------------+-------------------------+--------+--------+